;;;Show attribute tag and value of picked attribute.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
(defun c:shatr ( / )
  (setq attrs (entget(car(nentsel))))
  (princ (strcat(cdr(assoc 2 attrs))" = "(cdr(assoc 1 attrs))))
  (princ)
);defun
